home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / t_os / nem / nem.exe / RMAIL.PLP < prev    next >
Text File  |  1991-04-11  |  2KB  |  81 lines
  1. /* auto pilot program ｢NEM 2.06｣ 1991.4.11 By GOOSE(MAF00070) */
  2. /* Rmail(MAILPATH,BMAIL);
  3. **    未読メールをダウンする｡
  4. **    バイナリメールをダウン可能,未読数の制限なし,メニューモード,改ページ制御
  5. **    はどちらでもOK｡
  6. **    テキストメールは,MAILPATHの下の RMAIL.月日
  7. **    バイナリメールは,MAILPATHの下の BMAIL追番.月日
  8. **        MAILPATH:メール格納先のパス名
  9. **        BMAIL:バイナリメールのダウン可否｡{Yes}or{No} */
  10. /* %Rmail { */
  11. /*  [MAILPATH,BMAIL,DATE] */
  12.  
  13.     %onemail { [num]
  14.     type({MAIL\n});
  15.     wait(ABORTTIME,{Abort},{\nMAIL>},,{\n＞},);
  16.     type({READ }|num|{\n});
  17.     loop({wait({180},{Abort},
  18.         {action:},{type({2\n});wait(ABORTTIME,{Abort},{\nMAIL>},,{\n＞},);im({No})},
  19.         {\n：},{type({2\n});wait(ABORTTIME,{Abort},{\nMAIL>},,{\n＞},);im({No})},
  20.         {more>},{type({\n});im({Yes})},
  21.         {続き (改行で表示　E:終了)\n＞},{type({\n});im({Yes})},
  22.         {バイナリーのため、表示出来ません◆\n},
  23.         {case(BMAIL,
  24.             {No},{wait(ABORTTIME,{Abort},{\nMAIL>},,{\n＞},);im({No})},
  25.             {Yes},{
  26.                 var temp[2];temp:={1};
  27.                 loop({case(@filechk(BFILE|temp|{.}|DATE),
  28.                     {No},{im({No})},{Yes},{temp:=temp+1;im({Yes})}
  29.                 )});
  30.                 type({DOWN }|num|{ PROT:BPL\n});
  31.                 wait(ABORTTIME,{Abort},{：},);
  32.                 type(BFILE|temp|{.}|DATE|{\n});
  33.                 stoprec;
  34.                 wait({1800},{Abort},{：},);receive(FILE);type({2\n});
  35.                 wait(ABORTTIME,{Abort},{\nMAIL>},,{\n＞},);
  36.                 im({No})
  37.             }
  38.         )})})
  39.     };
  40.  
  41.     %exemdown {
  42.         %temp @head(MAILNUM,{,});
  43.         case(temp={No},
  44.             {Yes},{im({No})},
  45.             {No},{MAILNUM:=@body(MAILNUM,{,});onemail(temp);im({Yes})})
  46.     };
  47.  
  48.     %getmnum {
  49.     type({MAIL\n});
  50.     wait(ABORTTIME,{Abort},{\nMAIL>},,{\n＞},);
  51.     type({READ\n});
  52.     wait(ABORTTIME,,{題名\n},);
  53.     loop({
  54.         wait(ABORTTIME,{Abort},
  55.             {\n番号 (改行で次頁)\n＞},{type({\n});im({Yes})},
  56.             {\nmore>},{type({\n});im({Yes})},
  57.             {\n＞},{MAILNUM:=MAILNUM|{No,};im({No})},
  58.             {\n },{wait({2},{im({Yes})},
  59.             {/},{%temp1 @head(@rmblank(@tail(@laststr,{\n })),{ });
  60.                 MAILNUM:=temp1|{,}|MAILNUM;im({Yes})})}
  61.         )});
  62.     };
  63.  
  64.     var MAILNUM[80];MAILNUM:={};
  65.     %FILE  MAILPATH|{\}|{RMAIL.}|DATE;
  66.     %BFILE MAILPATH|{\}|{BMAIL};
  67.     type({MCHECK\n});
  68.     wait(ABORTTIME,{Abort},
  69.         {\n＞},,{\nMAIL>},,{\nHP>},,{\nFORUM>},,{\nBBS>},,{\nCCS(N)>},,{\nLIB>},,
  70.         {未読分},{
  71.             wait(ABORTTIME,{Abort},
  72.                 {\n＞},,{\nMAIL>},,{\nHP>},,{\nFORUM>},,{\nBBS>},,
  73.                 {\nCCS(N)>},,{\nLIB>},
  74.             );
  75.             receive(FILE);
  76.             loop(getmnum);
  77.             loop(exemdown);
  78.             stoprec;
  79.         });
  80. /* }; */
  81.